www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/admin_verify.asp
<!-- #include file="common.asp" --> <% Response.Expires=-1 Dim cn,rs set cn=server.CreateObject("ADODB.Connection") set rs=server.CreateObject("ADODB.Recordset") CreateConn cn,dbtype rs.Open "select adminpass from supervisor",cn if rs.EOF=false then if session.Contents("adminpass")<>rs(0) then Response.Redirect "admin_login.asp" Response.End end if else Response.Redirect "admin_login.asp" Response.End end if rs.Close cn.Close set rs=nothing set cn=nothing %>